home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 60 / 060.d81 / puzzle page 60 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  7KB  |  243 lines
  1. 1 poke55,0:poke56,128:clr
  2. 2 poke53281,0:poke53280,0:printchr$(147)chr$(14)chr$(8);
  3. 3 poke147,0:sys57812"windows.o",8,1:sys62631
  4. 4 sys57812"puzzle.font",8,0:poke780,0:poke781,0:poke782,48:sys65493
  5. 5 poke53272,29
  6. 6 dim m$(8),r$(4):f=0:ff=0
  7. 7 fori=1to4:readr$(i):next
  8. 8 data "[210]ead it           ","[210]un it            ","[195]redits           "
  9. 9 data "[205]ain [205]enu         "
  10. 10 fori=1to7:readm$(i):next
  11. 11 data "[195]rossword - [197]asy     "
  12. 12 data "[195]rossword - [205]edium   "
  13. 13 data "[195]ross [212]otal          "
  14. 14 data "[204]ogic [208]roblem        "
  15. 15 data "[195]razyquotes          "
  16. 16 data "[196]ownwords            "
  17. 18 data "[204]oadstar             "
  18. 20 tp$="[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  19. 22 md$="[221][155]                                      [146][221]"
  20. 23 ln$="[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  21. 24 bt$="[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  22. 25 goto30
  23. 26 print"[147]"tp$;
  24. 27 fori=1to23:printmd$;:next:printbt$:poke2023,125:poke56295,1
  25. 28 fori=217to242:pokei,peek(i)or128:next:return
  26. 30 gosub26
  27. 32 print"[221][156]       [191][191][191] [212]he [208]uzzle [208]age [191][191][191]        [146][221]";
  28. 34 println$;
  29. 60 poke214,21:print
  30. 65 println$;
  31. 70 print"[221][154]   [213]se cursor keys/[210][197][212][213][210][206] to select   [146][221]";
  32. 80 gosub28
  33. 100 print"";
  34. 102 printtab(7)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  35. 104 qq$="[221]                       [221]"
  36. 105 fori=1to9:print""qq$:next
  37. 106 printtab(7)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  38. 107 poke214,5:print
  39. 109 fori=1to7:printtab(9)""m$(i):next
  40. 145 sys52496,0,0,24,39,43008,1,0,0
  41. 146 poke198,0
  42. 150 r=5:m=1:poke214,r:print:printtab(9)"[154]"m$(m):m1=m:r1=r
  43. 155 getk$:ifk$=""then155
  44. 160 ifk$=chr$(13)then200
  45. 165 ifk$="[145]"thenm=m-1:r=r-1:ifm<1thenm=7:r=11
  46. 170 ifk$=""thenm=m+1:r=r+1:ifm>7thenm=1:r=5
  47. 175 ifm<>m1thenpoke214,r1:print:printtab(9)""m$(m1)
  48. 180 poke214,r:print:printtab(9)"[154]"m$(m)
  49. 182 m1=m:r1=r
  50. 185 goto155
  51. 190 :
  52. 200 ifm=7then11000:remreturnls
  53. 220 poke214,11:print
  54. 225 printtab(13)"[153][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  55. 227 q1$="[221]                    [221]"
  56. 229 fori=1to6:printq1$:next
  57. 230 printtab(13)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  58. 232 poke214,13:print
  59. 234 fori=1to4:printtab(15)""r$(i):next
  60. 280 r2=13:m2=1:poke214,r2:print:printtab(15)"[154]"r$(m2):m1=m2:r1=r2
  61. 285 getk$:ifk$=""then285
  62. 290 ifk$=chr$(13)then400
  63. 295 ifk$="[145]"thenm2=m2-1:r2=r2-1:ifm2<1thenm2=4:r2=16
  64. 300 ifk$=""thenm2=m2+1:r2=r2+1:ifm2>4thenm2=1:r2=13
  65. 305 ifm2<>m1thenpoke214,r1:print:printtab(15)"[153]"r$(m1)
  66. 310 poke214,r2:print:printtab(15)"[154]"r$(m2)
  67. 315 m1=m2:r1=r2
  68. 320 goto285
  69. 325 :
  70. 400 ifm2=4thensys52496,0,0,24,39,43008,8,0,0:gosub28:goto150:rem main menu
  71. 401 :
  72. 402 ifm2=3then500:rem credits
  73. 403 ifm2=1then600:rem instr
  74. 410 ifm2=2andm=1then700
  75. 411 ifm2=2andm=2then700
  76. 412 ifm2=2andm=3then700
  77. 413 ifm=4thenf$="playball"
  78. 414 ifm=5thenf$="crazy#1"
  79. 415 ifm=6thenf$="down#1"
  80. 422 gosub9600
  81. 423 ifff<>2thensys57812"cleveland",8,0:poke780,0:poke781,0:poke782,56:sys65493
  82. 424 ff=2
  83. 425 poke147,0:sys57812f$,8,1:sys62631
  84. 430 poke53272,31:sys2048
  85. 435 sys52496,0,0,24,39,43008,8,0,0:gosub28:poke53272,29:goto150
  86. 440 :
  87. 500 ifm=1thencr$="[201]ke [205]iller"
  88. 501 ifm=2thencr$="[201]ke [205]iller"
  89. 505 ifm=3thencr$="[194]arbara [200]. [211]chulak"
  90. 510 ifm=4thencr$="[194]arbara [200]. [211]chulak"
  91. 515 ifm=5thencr$="[194]arbara [200]. [211]chulak"
  92. 516 ifm=6thencr$="[194]arbara [200]. [211]chulak"
  93. 520 sys52496,0,0,24,39,40960,1,0,0
  94. 525 poke214,16:print:printtab(5)"[159][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  95. 527 printtab(5)"[221]     [208]uzzle(s) [194]y      [221]"
  96. 530 printtab(5)qq$
  97. 535 printtab(5)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  98. 540 poke214,18:print:printtab(17-len(cr$)/2)""cr$
  99. 544 t=1
  100. 545 getk$:ifk$<>""then550
  101. 546 t=t+1:ift<100then545
  102. 550 sys52496,0,0,24,39,40960,8,0,0:gosub28:goto285
  103. 555 :
  104. 600 sys52496,0,0,24,39,40960,1,0,0
  105. 605 onmgosub5000,5000,7000,6000,5400,6600
  106. 610 sys52496,0,0,24,39,40960,8,0,0:gosub28:goto280
  107. 625 :
  108. 700 gosub9600
  109. 714 ifm=1thenf$="easy":f1$="xword2048"
  110. 715 ifm=2thenf$="medium":f1$="xword2048"
  111. 720 ifm=3thenf$="xsums2":f1$="xsums2048"
  112. 721 x=len(f$):poke828,x+3
  113. 722 fori=1tox:poke831+i,asc(mid$(f$,i,1)):next
  114. 723 poke829,asc("@")
  115. 724 poke830,asc("0")
  116. 725 poke831,asc(":")
  117. 726 sys57812f$,8,0
  118. 727 poke780,0:poke781,o:poke782,128
  119. 728 sys65493
  120. 730 poke147,0:sys57812f1$,8,1:sys62631
  121. 732 ifff=1then750
  122. 735 sys57812"xsums.font",8,0
  123. 740 poke780,0:poke781,o:poke782,56
  124. 745 sys65493:ff=1
  125. 750 poke53272,31:sys2048
  126. 760 poke53272,29:sys52496,0,0,24,39,43008,8,0,0:gosub28:goto150
  127. 5000 gosub26
  128. 5005 print"[221][156]           [195]rossword [208]uzzles          [146][221]";
  129. 5010 println$;
  130. 5020 print"[155]    [213]se the cursor keys to maneuver
  131. 5025 [153]"list around the grid and press the keys
  132. 5030 print"[155] to enter your solutions.
  133. 5040 [153]"list   (NULL)he definitions are displayed at
  134. 5045 print"[155] the bottom of the screen and
  135. 5050 [153]"list respresent the clues both across and
  136. 5055 print"[155] down for the square that the cursor
  137. 5060 [153]"list is on.  atns you move the cursor, the
  138. 5065 print"[155] clues will change to reflect your
  139. 5070 [153]"list position on the grid.
  140. 5080 print"[155]   [193]ll controls are listed on the
  141. 5085 [153]"list playing screen."
  142. 5110 [153]ln$;
  143. 5115 [153]"(NULL)cont             (NULL)ress (NULL)val(NULL)(NULL)(NULL)(NULL)             wait(NULL)";
  144. 5125 [161]k$:[139]k$[179][177][199](13)[167]5125
  145. 5127 [142]
  146. 5400 [141]26
  147. 5405 [153]"(NULL)clr              lenrazyquotes             wait(NULL)";
  148. 5410 [153]ln$;
  149. 5420 [153]"list    lenrazyquotes are quotations in
  150. 5425 print"[155] code.  [217]our job is to figure out
  151. 5430 [153]"list this simple substitution code.
  152. 5440 print"[155]    [213]se the cursor keys to maneuver
  153. 5445 [153]"list around the quotation box and press
  154. 5450 print"[155] a letter key to enter possible
  155. 5455 [153]"list answers.  atnll letters with the same
  156. 5460 print"[155] code will be automatically changed
  157. 5465 [153]"list at once.
  158. 5475 print"[155]    [208]ress [198]1 to return to the menu,
  159. 5480 [153]"list asc2 to see the solution, or asc7 for
  160. 5482 print"[155] a hint."
  161. 5510 println$;
  162. 5515 print"[221][154]             [208]ress [210][197][212][213][210][206]             [146][221]";
  163. 5525 getk$:ifk$<>chr$(13)then5525
  164. 5530 return
  165. 6000 gosub26
  166. 6005 print"[221][156]            [204]ogic [208]roblem             [146][221]";
  167. 6010 println$;
  168. 6015 printmd$;
  169. 6020 print"[155]    [201]nstructions for [208][204][193][217] [194][193][204][204]! are"
  170. 6025 print"[155] included in the program."
  171. 6030 poke214,21:print
  172. 6055 println$;
  173. 6060 print"[154]             [208]ress [210][197][212][213][210][206]             [146][221]";
  174. 6090 getk$:ifk$<>chr$(13)then6090
  175. 6095 return
  176. 6600 gosub26
  177. 6605 print"[221][156]              [196]ownwords               [146][221]";
  178. 6610 println$;
  179. 6620 print"[155]    [212]he object of downword puzzles
  180. 6625 [153]"list is to insert a different letter of
  181. 6630 print"[155] the alphabet into the 26 empty
  182. 6635 [153]"list squares to form words of 5 letters
  183. 6640 print"[155] or more reading down.
  184. 6650 [153]"list    (NULL)se the cu